﻿Module mdl_TransferService
#Region "TransferService_Execute"

    Public Function TransferService_Execute(ByVal inParam As InSiteWebService.InTransfer, ByVal clientStr As String) As InSiteWebService.OutTransfer

        Dim Txn As New InSiteWebService.InSiteServiceSoapClient
        Dim OutParam As New InSiteWebService.OutTransfer

        '●変数の初期設定
        inParam.Header = New InSiteWebService.InHeader
        inParam.Header.User = INSITE_USER
        inParam.Header.Password = PASSWORD
        inParam.Header.Client = clientStr

        Try
            OutParam = Txn.TransferService_Execute(inParam)
            Return OutParam
        Catch ex As Exception
            OutParam.Header = New InSiteWebService.OutHeader
            OutParam.Header.Status = STS_ERROR
            OutParam.Header.ResultMessage = New String() {ex.Message & " (" & ex.InnerException.Message & ")"}
            OutParam.Header.ResultCode = New String() {"99999"}
            Return OutParam
        Finally
            Txn = Nothing
            OutParam = Nothing
        End Try

    End Function

#End Region

End Module
